home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Borland / Borland C++ For TASM / USRGUIDE.PAK / SOMESTR.PAS < prev    next >
Pascal/Delphi Source File  |  1996-02-21  |  507b  |  21 lines
  1. { Turbo Assembler example. Copyright (c) 1993 By Borland International, Inc. }
  2.  
  3. { Use with somestr.asm }
  4.  
  5. program EnvTest;
  6. { program looks for environment strings }
  7.  
  8. var
  9.   EnvVariable : string;
  10.   EnvValue : string;
  11.  
  12. function EnvString(s:string) : string; far; external;
  13. {$L SOMESTR.OBJ}
  14. begin
  15.   EnvVariable := 'PROMPT';
  16.   EnvValue := EnvString(EnvVariable);
  17.   if EnvValue='' then EnvValue := '*** not found ***';
  18.   Writeln('Environment Variable:',EnvVariable,'Value:',EnvValue);
  19. end.
  20.  
  21.